home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / F-French / (c)f1.d64 / mine d'or (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  7KB  |  202 lines
  1. 0 CLR:POKE53272,21:POKE53281,0:PRINT""
  2. 1 REM PROGRAM COPYRIGHT (C) 1980 RON LONGFELLOW
  3. 2 REM 103 ESPLANADE #35
  4. 3 REM PACIFICA CA 94044
  5. 4 :
  6. 5 REM CURSOR #19 APR 80
  7. 6 REM BOX 550, GOLETA, CA. 93017
  8. 7 REM LINES 61000-65000 (C) 1980 CURSOR MAGAZINE
  9. 10 REM AS OF APR 28 80
  10. 90 PG$="MINEUR!":NM$="19":GOSUB62000
  11. 100 :
  12. 110 DEFFNR(X)=INT(RND(TI)*X)+1
  13. 280 DM=40:ES=125:TC=1:CRT=1024:LM=CRT+190:LE=CRT+112:M=42:VO=54296:AT=54277
  14. 290 DIME(15),ES(15),M$(17):S=59464:WA=54276:HI=54273:LO=54272
  15. 310 M$(0)="                                   [145]"
  16. 311 M$(1)="FUSIBLE BRULE [145]"
  17. 312 M$(2)="ATTENTION  - EXPLOSION DANGEREUSE!![145]"
  18. 313 M$(3)="SOUS-SOL SPONGIEUX -[146] FLOODING![145]"
  19. 320 M$(4)="UN MOMENT S.V.P.[145]"
  20. 330 M$(5)="TU PEUX COMMENCER A CREUSER[145]"
  21. 331 M$(11)="GRANIT SOLIDE  -[158]CA NE FONCTIONNE PAS[145]"
  22. 332 M$(12)="[158]PLANCHER INSTABLE - ATTENTION![145]"
  23. 333 M$(13)="[158]SABLEUX--CREUSAGE FACILE![145]"
  24. 340 FORI=1TO15:READ E(I):NEXT
  25. 350 DATA 45,93,45,231,160,229,244,218,231,231,160,229,45,45,45
  26. 360 FORI=1TO15:READ ES(I):NEXT
  27. 370 DATA 0,1,2,42,41,40,80,81,82,122,121,120,160,161,162
  28. 380 T(1,1)=31:T(1,2)=30:T(2,1)=61:T(2,2)=60:T(3,1)=61:T(3,2)=94
  29. 400 PRINT"[147]"TAB(15)" BANQUE [146]"TAB(33)"[221]    [146]"
  30. 410 PRINTTAB(15)"[171][214][214][214][214][179]"TAB(33)"[221] [182][214][165]"
  31. 420 PRINT"  PETTA   [146]";TAB(13)"[169][146][163][163][163][163][163][163][163][208]"TAB(33)"[221] [182][214][165]"
  32. 430 PRINT"   MINE   [146]";TAB(13)" [146][223]       [223][146]"TAB(32)"[207] [208][146][182][214][165]
  33. 440 [153]"  ABS  CLOSEABS"[163]13)" WAIT       THEN"[163]32)"SGN(null) WAITABS(null)FN"
  34. 450 [153]"WAITSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC((null)TOSQR WAITSPC(SPC(SPC(SPC(";
  35. 460 X1$[178]"WAITSPC(                               WAIT--- WAITSPC(SPC(SPC(SPC("
  36. 470 X2$[178]"WAITSPC(                           WAIT    --- WAITSPC(SPC(SPC(SPC("
  37. 480 [153]X1$;
  38. 490 [129]I[178]1[164]2:[153]X2$;:[153]X2$;:[153]X2$;:[153]X1$;:[153]X1$;:[153]X1$;:[130]
  39. 500 [129]I[178]1[164]3:[153]X2$;:[130]:[153]X1$;:[153]X1$;
  40. 510 [153]"WAITSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(":[151]CRT[170]999,102
  41. 520 [141]1540:M1$[178]"MINEURCMDCMD(null)CMDV":M2$[178]"     CMDCMD CMD "
  42. 530 [153]""[163]27)M1$:[151]VO,15:[151]AT,35:[151]WA,33:[151]HI,30:[151]LO,40
  43. 531 [129]TE[178]1[164]200:[130]
  44. 532 [151]LM,M:[151]WA,0:MS[178]5:[141]1530
  45. 542 [161]Z$:[139]Z$[178]""[167]542
  46. 544 [151]VO,15:[151]AT,100:[151]WA,17:[151]HI,40:[151]LO,200:[129]TE[178]1[164]110:[130]
  47. 545 [151]WA,0
  48. 550 [151]LM,32:LM[178]LM[170]1:[151]V0,15:[151]LM,M:[151]AT,200:[151]WA,129:[151]HI,20
  49. 555 [151]LO,40:[129]TE[178]1[164]100:[130]:[151]WA,0
  50. 560 [153]""[163]27)M2$:MS[178]0:[141]1530:[137]580
  51. 570 [139]Z$[178]""[167][161]Z$:[137]570
  52. 573 ZZ$[178]Z$:Z$[178]""
  53. 580 OLM[178]LM:[143]NP=LM+DM:NS=PEEK(NP):GOSUB1610
  54. 590 [139]ZZ$[178]"2"[167]DM[178]40:[137]710
  55. 600 [139]ZZ$[178]"8"[167]DM[178][171]40:[137]710
  56. 610 [139]ZZ$[178]"4"[167]DM[178][171]1:[137]720
  57. 620 [139]ZZ$[178]"6"[167]DM[178]1:[137]720
  58. 660 [139]ZZ$[178]"D"[167]TC[178]2:Z$[178]OZ$:[137]970
  59. 670 [139]ZZ$[178]"P"[167]TC[178]3:Z$[178]OZ$:[137]970
  60. 680 [139]ZZ$[178]"E"[167]TC[178]4:Z$[178]"":[137]970
  61. 684 [139]ZZ$[178]"Q"[167]2000
  62. 690 [137]570
  63. 710 [139]LM[178]LE[170]80[167]870
  64. 720 NP[178]LM[170]DM:NS[178][194](NP)
  65. 725 [139]NP[179]CRT[170]160[167]570
  66. 726 [139]NP[177][178]CRT[170]920[167]570
  67. 730 MS[178]0:[141]1530
  68. 740 [141]1340:[141]1610:NS[178][194](NP)
  69. 748 [139]NS[178]160[167]TC[178]1:[137]970
  70. 750 [139]NS[178]0[176]NS[178]218[176]NS[178]174[176]NS[178]220[176]NS[178]102[176]NS[178]229[176]NS[178]231[176]NS[178]45[167]570
  71. 770 [139]NP[178]CRT[170]190[175]DM[178][171]1[167][141]1900:[137]570
  72. 780 [139]NS[178]135[167][141]830:[137]570
  73. 790 [139]NS[178]95[167][151]LM,32:LM[178]LM[170]40:[151]LM,M:SD[178]2[172][165]R(10):[137]570
  74. 800 [139]NS[178]255[167][141]1810:[137]570
  75. 810 [139]NS[178]147[167]H(F)[178]160:[141]1770:[141]1610:[137]570
  76. 820 LM[178]NP:[151]S,20:[151]LM,M:[151]OLM,32:[151]S,0:[141]1610:[137]570
  77. 830 H(F)[178]160:GN[178][165]R(3):GA[178]GA[170]GN
  78. 840 M$(7)[178]"SYSPEPITE D'ORRRRRRR -"[170][196](GN)[170]" OZONONON":MS[178]7
  79. 850 [141]1750:[129]I[178]1[164]10:[151]S,10[170]2[172]I:[130]
  80. 860 LM[178]NP:[151]LM,M:[151]OLM,32:[151]S,0:[142]
  81. 870 :
  82. 876 Z$[178]"5":[139]DM[177][171]2[175]DM[179]2[167]720
  83. 880 [139]LM[179][177]LE[170]80[167]570
  84. 890 [139]LE[179]CRT[170]82[167]LE[178]LE[171]DM:LM[178]LM[171]DM:[151]S,0:[141]1900:[137]570
  85. 900 [139]LE[177]CRT[170]782[167]LE[178]LE[171]DM:LM[178]LM[171]DM:[151]S,0:[137]570
  86. 910 E(1)[178]32:E(3)[178]32:[139]DM[178]40[167]ES[178]ES[170]5:[129]I[178]1[164]15
  87. 920 [139]DM[178][171]40[167]ES[178]ES[171]5:[129]I[178]15[164]1[169][171]1
  88. 930 [139]LE[177]CRT[170]200[167]E(1)[178]45:E(3)[178]45
  89. 940 [151]LE[170]ES(I),E(I):[130]:[151]S,ES:SC[178]SC[171]6
  90. 950 [161]A$:[139]A$[178]""[167]LE[178]LE[170]DM:LM[178]LE[170]80:[137]870
  91. 960 [151]S,0:[137]570
  92. 970 TP[178]DM:NS[178][194](NP):[139]NS[178]42[167]NP[178]NP[170]DM:NS[178][194](NP)
  93. 980 [139]NS[179][177]0[175]NS[179][177]32[175]NS[179][177]160[175]NS[179][177]174[175]NS[179][177]220[175]NS[179][177]255[167]570
  94. 985 [139]NS[178]32[175]TC[179][177]4[167]570
  95. 990 [139](NS[178]220[176]NS[178]255)[175]TC[178]1[167]570
  96. 1000 [139]NS[178]0[175](TC[179][177]3)[167]570
  97. 1010 [139]NS[179][177]0[175]TC[178]3[167]570
  98. 1020 [139]TC[178]4[167][141]1210:[137]570
  99. 1070 [139]TC[178]1[175]NS[177]180[175]NS[179]186[167]570
  100. 1080 [129]I[178]1[164]10:[151] LM[170]TP,T(TC,1)
  101. 1090 [145] TC [141]1150,1170,1180
  102. 1100 [151] LM[170]TP,T(TC,2):[129]W[178]1[164]20:[130]W:[130]I
  103. 1110 [139]TC[178]1[167]SD[178]5
  104. 1120 [139]TC[178]2[167]SD[178]35
  105. 1130 [139]TC[178]3[167]SD[178]25
  106. 1140 [141]860:NP[178]LM[170]DM:NS[178][194](NP):[141]1340:[137]570
  107. 1150 :
  108. 1160 [151]VO,15:[151]AT,15:[151]WA,129:[151]HI,40:[151]LO,200
  109. 1162 [129]W[178]1[164]100:[130]:[151]WA,0:[142]
  110. 1170 [151]VO,15:[151]WA,129:[151]HI,20:[151]LO,40:[129]W[178]1[164]50:[130]:[151]WA,0:[142]
  111. 1180 [151]VO,15:[151]WA,120:[151]HI,5:[151]LO,20:[129]W[178]1[164]20:[130]:[151]WA,0:[142]
  112. 1210 MS[178]0:[141]1530
  113. 1215 [151]LM[171]1,33:MS[178]2:[141]1750:EL[178]LM[171]1
  114. 1220 [129]I[178]1[164]4:[139][194](LM[170]1)[178]32[167]OLM[178]LM:LM[178]LM[170]1:[151]LM,M:[151]OLM,32
  115. 1230 [130]
  116. 1240 [139][165]R(4)[178]1[167]MS[178]1:[151]LM,M:[141]1530:[151]EL,32:SD[178]25:[142]
  117. 1250 [129]I[178]1[164]30:[151]VO,15:[151]AT,100:[151]WA,129:[151]EL,161:[151]HI,3:[151]LO,10
  118. 1260 [129]W[178]1[164]50:[130]:[151]WA,0:[151]EL,86:[130]:[151]EL,32
  119. 1270 [129]I[178]1[164]50:[151]VO,15:[151]AT,10:[151]WA,33:[151]HI,2[172]I:[151]LO,3[172]I:[130]
  120. 1280 [151]HI,150:[151]LO,250:[151]LM[171]5,32
  121. 1290 [129]J[178][171]2[164]2 :[151]WA,0
  122. 1300 [129]I[178]1[164]4:EA[178]LM[170](J[172]40)[171][165]R(4)[171]I
  123. 1310 [139][194](EA)[178]160[176][194](EA)[178]255[167][151]EA,214:[151]VO,15:[151]EA,32:[151]WA,129
  124. 1320 [151]HI,10:[151]LO,20:[130]I:[130]J:[151]WA,0
  125. 1330 [151]LM[171]4,32:SD[178]80:[142]
  126. 1340 M$(15)[178]"TU ES CASSE     - TU PERDS   !!ON"
  127. 1350 C[178]0:PT[178][165]R(40)[171]20
  128. 1390 [139]GP[177]1000[167]PT[178][171][182](PT)
  129. 1400 [139]GP[179]200[167]PT[178][182](PT)
  130. 1410 M$(16)[178]"TU GAGNES - FELICITATIONS!!ON"
  131. 1420 [139]SC[179][178]0[167]MS[178]15
  132. 1430 [139]SC[177][178]10000[167]MS[178]16
  133. 1440 SC[178]SC[171]SD:SD[178]0:GP[178]GP[170]PT
  134. 1450 [139]C[178]0[167]SC$[178]"      ":GP$[178]SC$[170]"   "
  135. 1460 [139]C[178]0[175]MS[178]16[167]1520
  136. 1470 [153]"$";GP$;"WAIT"
  137. 1480 [153]"$";SC$;"WAIT"
  138. 1490 [139]MS[178]15[176]MS[178]16[167]:[141]1530:[129]W[178]1[164]500:[151]S,W[173]2:[130]:[151]S,0:[137]2000
  139. 1500 [139]MS[178]17[167][151]S,50:[141]1530:[129]W[178]1[164]9999:[130]:[151]S,0:[137]2000
  140. 1510 [139]C[178]1[167]C[178]0:[142]
  141. 1520 SC$[178][196](SC):GP$[178][196](GP)[170]" OZ":C[178]1:[137]1470
  142. 1530 [153]"";M$(MS):[142]
  143. 1540 MS[178]4:[141]1530
  144. 1550 TG[178]8[170][165]R(10)
  145. 1560 C[178]1:[129]I[178]1[164]250
  146. 1570 HL[178]CRT[170]200[170][165]R(27)[170](40[172][165]R(17))
  147. 1580 [151]HL,174:[130]
  148. 1590 [153]"GOLD PRICEWAIT":[153]"         WAIT"
  149. 1600 GP[178]600:SC[178]1000:[141]1340:[142]
  150. 1610 :
  151. 1620 [139]NS[179][177]174[167] [142]
  152. 1630 RH[178][165]R(15)[171]1
  153. 1640 H[178]32:MS[178]13
  154. 1650 [139]RH[178]3[167]H[178]147
  155. 1660 [139]RH[178]4[167]H[178]255
  156. 1670 [139]NP[179]CRT[170]880[167][139]RH[178]6[176]RH[178]7[167]H[178]95:MS[178]12
  157. 1680 [139]RH[178]8[176]RH[178]9[167]H[178]135:GC[178]GC[170]1
  158. 1690 [139]RH[177]9[167]H[178]220:MS[178]11
  159. 1710 [151]NP,H
  160. 1750 [141]1530:[129]W[178]1[164]1999:[130]:[142]
  161. 1770 J[178]O:MS[178]3:[141]1530
  162. 1780 [129]I[178]NP[171]6[164]CRT[170]959
  163. 1790 [139][194](I)[178]32[167][151]I,0:J[178]0:[151]S,35
  164. 1794 J[178]J[170]1:[139]J[177]40[167][142]
  165. 1800 [151]S,0:[130]:SD[178]100:[141]1340:[151]S,0:[142]
  166. 1810 M$(8)[178]"SYSEBOULIS!                ON"
  167. 1830 [139][165]R(4)[178]3[175]GA[177]0[167]M$(8)[178]"EBOULIS TU AS PERDU L'ORON":GA[178]0
  168. 1840 [129]J[178][171]1[164]1:R[178][165]R(3)[170]40[172]J:[151]S,200[170]10[170]J
  169. 1850 [129]I[178][171]2[164]2:Z[178]LM[171]I[170]R:[139][194](Z)[178]32[176][194](Z)[178]0[176][194](Z)[178]174[167][151]Z,160
  170. 1855 [130]I:[151]S,0:[130]J
  171. 1860 [151]LM,M:MS[178]8:[141]1750:SD[178][181]([165]R(50)[172]SC[173]100):[141]1340:[142]
  172. 1900 [141]1930:[141]1950:VG[178]0:VG[178]GP[172]GA
  173. 1910 M$(6)[178]""[170][196](GA)[170]" OZ.VALEUR OR   $"[170][196](VG)[170]"ON":MS[178]6:[141]1530
  174. 1920 SC[178]SC[170]VG:GA[178]0:[141]1340:[141]1970:[142]
  175. 1930 [129]I[178]CRT[170]183[164]LM:[151]LM,32:[151]VO,15:LM[178]LM[171]1:[151]LM,M:[151]WA,33:[151]HI,30
  176. 1935 [151]LO,100
  177. 1940 [129]W[178]1[164]50:[130]W:[151]WA,0:[130]I:[142]
  178. 1950 [129]I[178]1[164]20:[129]J[178]1[164]4:[151]LM[171]1[171]J,164:[151]VO,15:[151]AT,10:[151]SR,10:[151]WA,33
  179. 1960 [151]HI,60:[151]LO,200:[151]LM[171]1[171]J,32:[130]J:[151]WA,0:[130]I:[142]
  180. 1970 [129]I[178]1[164]10:[151]LM,32:[151]VO,15:[151]SR,200:[151]WA,17:LM[178]LM[170]1:[151]LM,M
  181. 1980 [151]HI,35:[151]HO,120:[129]W[178]1[164]50:[130]W:[130]I:[151]WA,0
  182. 1990 Z$[178]"6":[142]
  183. 2000 [161]Z$:[139]Z$[179][177]""[167]2010
  184. 2010 [151]VO,15:[151]AT,30:[151]WA,33:[151]HI,100:[151]LO,200:[153]"LOAD  ENCORE  ? ";
  185. 2011 [129]I[178]1[164]200:[130]:[151]WA,0
  186. 2015 [161]Z$:[139]Z$[178]""[167]2015
  187. 2020 [139]Z$[178]"N"[167][128]
  188. 2030 [156]:[153]"LOAD":[137]100
  189. 62000 [153]"LOAD";[163]9);"CURSOR #";NM$;"  ";PG$
  190. 62010 [153]" COPYRIGHT (C) 1980  BY RON LONGFELLOW
  191. 62020 FORI=1TO10:PRINT"[192][192][192][192]";:NEXTI
  192. 62030 PRINT"[158]  CREUSER LA MINE D'OR DE TES REVES...
  193. 62040 [153]"TU DIRIGES LE MINEUR AVEC LES CLES           HABITUELLES:";
  194. 62050 [153]" 2 4 6 ET 8."
  195. 62060 [153]"LORSQUE LA GALERIE EST INNONDEE TU ACTIONNES LA POMPE AVEC LE P  "
  196. 62065 [153]"TU ARRETES L'ASCENSEUR AVEC LE  5 "
  197. 62067 [153]"LES AUTRES CONTROLES SONT D E ET Q
  198. 62070 PRINT" BONNE CHASSE A L'OR
  199. 62100 [153]"APPUIE RETURNWAIT POUR COMMENCER
  200. 62120 GETT$:IFT$=""THEN62120
  201. 62130 PRINT"[147]":CLR:GOTO100
  202.